From: Kim F. Storm <storm@cua.dk>
Date: Mon, 26 Aug 2002 12:38:59 +0000 (+0000)
Subject: (suppress-keymap): Use command remapping instead of
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31012
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f9ae261392c84d8d41ff10fd95c44491c5350d06;p=emacs.git

(suppress-keymap): Use command remapping instead of
substitute-key-definition to undefine self-inserting keys.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 7ca081ebfef..6d5f4df5110 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -279,7 +279,7 @@ Non-strings in LIST are ignored."
   "Make MAP override all normally self-inserting keys to be undefined.
 Normally, as an exception, digits and minus-sign are set to make prefix args,
 but optional second arg NODIGITS non-nil treats them like other chars."
-  (substitute-key-definition 'self-insert-command 'undefined map global-map)
+  (define-key map [remap self-insert-command] 'undefined)
   (or nodigits
       (let (loop)
 	(define-key map "-" 'negative-argument)